﻿Public Class Calculos

    Sub HacerAlgunCalculo(ByVal parametro As Integer)
        Try
            Console.WriteLine("Metodo")
            PuedeProvocarExcepcion(parametro)
            Console.WriteLine("Metodo: Despues de llamar al metodo")
        Catch e As ArgumentOutOfRangeException
            Console.WriteLine("Metodo: Catch")
            If (CType(e.ActualValue, Integer) = -5) Then
                Throw
            End If
        Finally
            Console.WriteLine("Metodo: Finally")
        End Try
        Console.WriteLine("Metodo: Despues del try")
    End Sub


    Sub PuedeProvocarExcepcion(ByVal parametroPositivo As Integer)
        If parametroPositivo < 0 Then
            Throw New ArgumentOutOfRangeException("parametroPositivo", parametroPositivo, "El parametro debe ser positivo")
        End If
    End Sub
End Class
